(completion-styles): Add emacs22 completion style as fallback.

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index b72259528e6630c7ab9b0e9d2c91c4fc410022bc..62282be696ffd403c3689bb1f873452c5ec1d6b1 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -307,7 +307,7 @@ where NAME is the name that should be used in `completion-styles',
 TRY-COMPLETION is the function that does the completion, and
 ALL-COMPLETIONS is the function that lists the completions.")
 
-(defcustom completion-styles '(basic partial-completion)
+(defcustom completion-styles '(basic partial-completion emacs22)
   "List of completion styles to use."
   :type `(repeat (choice ,@(mapcar (lambda (x) (list 'const (car x)))
                                    completion-styles-alist)))